home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1426copy.txt < prev    next >
Encoding:
Text File  |  1996-03-06  |  1.4 KB  |  38 lines
  1. if newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. title number = "1426"
  4. Company = "Microsoft Home"
  5. title = "Reader's Digest Complete Do-It-Yourself Guide"
  6. Price = 29.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = "Windows CD-ROM"
  13. Title Description = "Tackle any job in your home with ease. Let photos, illustrations, video, and 3-D animation help you master the use of some 600 hand and power tools. Discover how your home's plumbing, heating, and electrical system works by touring an interactive, animated house. Learn how to select, purchase, and use 165 different materials. Plus, consult seasonal reminders about maintenance and repairs."
  14. -------------------------------------
  15. dline = ""
  16. counter = 0
  17. repeat while dline <> title number
  18. counter = counter + 1
  19. dline = GetWord(1,   GetLine(titl,counter) )   
  20. test(dline = title number, LineInTitle = counter)
  21. end repeat 
  22.  
  23. starttitle = LineInTitle
  24. num of titles shown = 6
  25. endtitle = starttitle + num of titles shown - 1
  26. titles = ""
  27. title highlight = ""
  28. repeat with counter = starttitle to endtitle
  29. nextline = GetLine(titl,counter)
  30. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  31. title highlight = Test(title number = GetWord(1, nextline), title highlight ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return, title highlight ^ Return)
  32. end repeat
  33. dpage = CurrentPageID
  34.  
  35. newtitle = FALSE
  36. end if
  37.  
  38.